home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / host contacted / imengv3.41p1.lha / ImEngV3.41p1 / ARexx / ScanImage_E.rexx < prev    next >
OS/2 REXX Batch file  |  1997-01-29  |  1KB  |  67 lines
  1. /* Script to scan into ImageEngineer via ScanQuix.
  2.    Scanner software running on Workbench. */
  3.  
  4. /* © 1997 by Volkmar Funke */
  5.  
  6. /* $VER: ScanImage.rexx 1.0 (27.01.97) */
  7.  
  8. /* [english translation (parts) by Andreas R. Kleinert] */
  9.  
  10. address 'IMAGEENGINEER'
  11. options results
  12. options failat 25     /* ScanToDisk returns 0 or 20 */
  13.  
  14. TRACE OFF
  15.  
  16. tempfile='T:IE_ScannnedImage'
  17.  
  18. ok=1
  19. call SCAN()           /* Scans the image into a temporary file */
  20. call IMPORTGRAPHIC()  /* Loads Image into ImageEngineer */
  21. call DELETEFILE()     /* Removes temporary image file */
  22.  
  23. EXIT
  24.  
  25.  
  26.  
  27. SCAN:
  28. /* Scans the image into a temporary file using the program "ScanToDisk". */
  29.   if not 1=open('path','ENV:ScanQuix/Path','READ') then do
  30.     ok=0
  31.     return
  32.   end
  33.  
  34.   pragma('DIRECTORY',READLN('path'))
  35.   address command 'ScanQuix3/ScanToDisk FILE="'tempfile'" TRUECOLOR NOICONS  NOGUI PUBSCREEN=Workbench'
  36.   if RC>=5 then do
  37.   ok=0
  38.   return
  39.   end
  40.  
  41. return
  42.  
  43.  
  44.  
  45. IMPORTGRAPHIC:
  46. /* Loads the image into ImageEngineer */
  47.   if ok=0 then
  48.     return
  49.  
  50.   IE_TO_FRONT
  51.  
  52.   'Open' tempfile
  53.  
  54. if rc~=0 then do
  55.      ADDRESS 'IMAGEENGINEER'
  56.     REQUEST '"Scanner error !!"' ' "OK" '
  57.     EXIT
  58. end
  59.  
  60.  
  61.  
  62. DELETEFILE:
  63. /* removes temporary file */
  64.   address command 'delete >NIL: 'tempfile
  65.  
  66. return
  67.